﻿Namespace Web
    Partial Public Class Usuari

        Public Property IdiomesItem() As OpcioCombo
            Get
                Return OpcionsComboIdiomes.Llista.Where(Function(f) f.Nom = Idioma).FirstOrDefault()
            End Get
            Set(ByVal value As OpcioCombo)
                If value IsNot Nothing Then
                    Me.Idioma = value.Nom
                End If
            End Set
        End Property

        Public Property TipusUsuariItem() As OpcioCombo
            Get
                Return OpcionsComboRols.Llista.Where(Function(f) f.Id = IdTipusUsuari).FirstOrDefault()
            End Get
            Set(ByVal value As OpcioCombo)
                If value IsNot Nothing Then
                    Me.IdTipusUsuari = value.Id
                End If
            End Set
        End Property

    End Class
End Namespace